home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00239.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  2.7 KB  |  75 lines
  1. on mouseUp
  2.   global mucus, PeakDayNo, candidateStamp, stamp, dayNo, relations
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   set x to count(mucus)
  7.   cursor(4)
  8.   if ((the clickOn - 10) > 1) and ((the clickOn - 10) < 7) then
  9.     killAnovul()
  10.   end if
  11.   if (candidateStamp = 6) and (((the clickOn - 10) > 1) and ((the clickOn - 10) < 7)) then
  12.     cursor(0)
  13.     set the visible of sprite 11 to 0
  14.     alert("You chose the Yellow Stamp, but then chose a mucus with fertile characteristics.  If the mucus has the characteristics you selected,  choose the White Baby Stamp.")
  15.     set the visible of sprite 11 to 1
  16.     go("chart stamp")
  17.     exit
  18.   end if
  19.   if (candidateStamp = 4) and (((the clickOn - 10) > 1) and ((the clickOn - 10) < 7)) then
  20.     cursor(0)
  21.     set the visible of sprite 11 to 0
  22.     alert("You chose the Yellow Baby Stamp, but then chose a mucus with fertile characteristics.  If the mucus has the characteristics you selected,  choose the White Baby Stamp.")
  23.     set the visible of sprite 11 to 1
  24.     go("chart stamp")
  25.     exit
  26.   end if
  27.   if x > 0 then
  28.     if (getAt(mucus, x) > 1) and (getAt(mucus, x) < 7) then
  29.       if ((the clickOn - 10) > 1) and ((the clickOn - 10) < 7) then
  30.         if (getAt(stamp, x) = 3) and (candidateStamp > 3) then
  31.           cursor(0)
  32.           set the visible of sprite 11 to 0
  33.           alert("You chose a Yellow Baby stamp, but then chose a mucus that was similar to the previous days.  Please change either your stamp or mucus selection.")
  34.           set the visible of sprite 11 to 1
  35.           go("chart stamp")
  36.         else
  37.           append(relations, 0)
  38.           append(stamp, candidateStamp)
  39.           append(mucus, the clickOn - 10)
  40.           showDays()
  41.           setupDayBook()
  42.         end if
  43.       else
  44.         if (getAt(stamp, x) = 3) and (candidateStamp = 3) then
  45.           cursor(0)
  46.           set the visible of sprite 11 to 0
  47.           alert("The mucus you selected for this day is distinctly different from the mucus chosen for the day before.  If the mucus selection was correct, Peak Day has occured.  Please select the Yellow Baby Stamp. ")
  48.           set the visible of sprite 11 to 1
  49.           go("chart stamp")
  50.         else
  51.           set PeakDayNo to dayNo
  52.           setAt(stamp, dayNo, 10)
  53.           append(relations, 0)
  54.           append(stamp, candidateStamp)
  55.           append(mucus, the clickOn - 10)
  56.           showDays()
  57.           setupDayBook()
  58.         end if
  59.       end if
  60.     else
  61.       append(relations, 0)
  62.       append(stamp, candidateStamp)
  63.       append(mucus, the clickOn - 10)
  64.       showDays()
  65.       setupDayBook()
  66.     end if
  67.   else
  68.     append(stamp, candidateStamp)
  69.     append(relations, 0)
  70.     append(mucus, the clickOn - 10)
  71.     showDays()
  72.     setupDayBook()
  73.   end if
  74. end
  75.